(define (exists? pred lst)
    (cond 
        ((null? lst) #f)
        ((pred (car lst)) #t)
        (else 
            (exists? pred (cdr lst))
        )
    )
)

(display 
    (exists? number? `(a b c 3 e))
)

(display 
    (exists? number? `(a b c d e))
)
